Help with program

[Aeveus]

Hi I'm taking a class where we are learning with qb64 and I can't seem to get this program to run and I just can't figure out why. Any help is very much appreciated!

Code: QB64: [Select]

1. '*************************** Program Mainline ******************************
2. CLS
3. GOSUB InitializeVariables
4. GOSUB PrintHeadings
5. GOSUB ProcessDetail
6. GOSUB PrintOutput
7. END
8. '*************************** Initialize Variables ************************
9. IntitializeVariables:
10. T1$ = "     MODEL CARS"
11. H1$ = "Manufacturer#   Yr  Make    Model       Description         Price"
12. D1$ = "\          \  ##  \     \  \    \   \                          \    ##.##"
13. TL$ = "TOTAL PRICE                                                  ###.##"
14. RETURN
15. '************************** Print Headings *******************************
16. PrintHeadings:
17. PRINT
18. PRINT T1$
19. PRINT
20. PRINT H1$
21. PRINT
22. PRINT
23. RETURN
24. '***************************  Process Detail *****************************
25. ProcessDetail:
26. GOSUB ReadData
27. DO UNTIL Manufacturer$ = "END"
28.     GOSUB CalculateAnswer
29.     GOSUB PrintDetail
30.     GOSUB ReadData
31. LOOP
32. RETURN
33. '***************************** Read Data *********************************
34. ReadData:
35. READ Manufacturer$, Year, Make$, Model$, Description$, Price
36. DATA BMR-R79,49,FIAT,500B,GILLETE RAZOR,7.99
37. DATA HOTWELS-34,57,CHEVY,NOMAD,4/DR STATION WAGON,12.95
38. DATA MATCHBX-878,73,FORD,BRONC,3/DR 4X4 RED SPARE WHL,25.99
39. DATA MATCHBX-72,69,BUIK,CENTY,YELLOW TAXI,1.49
40. DATA BRM-R88,34,BUGAT,TY575,RACER BLACK,35.00
41. DATA MATCHBX-25,80,LINCO,MRKIV,WHITE LIMOUSINE,14.99
42. DATA LESNEY-Y42,82,CHEVY,MALBU,4/DR GREEN PASSENGER,1.99
43. DATA HASBRO-119,75,AMC,GRMLN,2/DR SEDAN YELLOW,1.69
44. DATA TABY-6332,71,TOYOT,CELIC,2/DR SEDAN BLUE,2.99
45. DATA BMR-SY238,36,ROLRY,SYLVC,4/DR SEDAN SILVER-GRAY,60.00
46. DATA "END",0,0,0,0,0
47. RETURN
48. '**************************** Calculate Answer ************************
49. CalculateAnswer:
50. TotalPrice = TotalPrice + PRICE
51. RETURN
52. '*************************** Print Detail *******************************
53. PrintDetail:
54. PRINT USING D1$; Manufacturer$, Year, Make$, Model$, Description$, Price
55. RETURN
56. '**************************** Print Output ********************************
57. PrintOutput:
58. PRINT
59. PRINT USING TL$; TotalPrice
60. PRINT
61. PRINT
62. RETURN
63. '

[bplus]

Type-O line #3 spelling not same as sub

Looks good after that (well you could fix up alignments of header labels with data columns).

[Aeveus]

Type-O line #3 spelling not same as sub

Looks good after that (well you could fix up alignments of header labels with data columns).

Thank you so much, lol! I swear I was staring at my screen for an hour looking for typos but I just kept glossing past it I guess.

[bplus]

Yeah a time for another pair of eyes to look at it!

Welcome to forum :)

I confess I could not see the difference either, like an optical illusion!

I just copy/pasted the sub name on the red-lined GOSUB line.