10 POKE53281,0:POKE53280,0:PRINT"[147]" 20 : 30 :REM * DEFAULT PARAMETERS/VARIABLES 40 : 50 DR=8:DR$=STR$(DR) 60 OD=1:OD$=STR$(OD) 70 IT=1:IT$=STR$(IT) 80 EN=52:EN$="52" 90 OF=53:OF$="53" 100 : 110 :REM *** MAIN MENU *** 120 : 130 PRINT"[147][129] [212]HE [150][209]&[196][129] [215]AY [214]S[129] THE [150][204][207][193][196][211][212][193][210][129] [215]AY" 140 PRINT"[159] [194][193][211][201][195] 2.0 HAS SOME COMMANDS THAT" 150 PRINT" MAKE IT VERY EASY TO DO CERTAIN" 160 PRINT" THINGS IN A PROGRAM, SUCH AS ASK FOR" 170 PRINT" PARAMETERS AND DISPLAY THEM. [201]F YOU" 180 PRINT" ARE WRITING A PROGRAM THAT ONLY YOU" 190 PRINT" WILL BE USING, THE [209]&[196] WAY IS BEST." 200 PRINT" [200]OWEVER, IF YOU ARE WRITING FOR OTHER" 210 PRINT" USERS, YOU SHOULD CONSIDER USING THE" 220 PRINT" FRIENDLY [204][207][193][196][211][212][193][210] METHOD." 230 PRINT" [212]HESE TWO EXAMPLES SHOW TWO WAYS OF" 240 PRINT" ASKING FOR A DRIVE NUMBER, OUTPUT" 250 PRINT" DEVICE, ITALICS STATUS, AND THE ESCAPE" 260 PRINT" CODE FOR ITALICS ON AND OFF ON YOUR" 270 PRINT" PRINTER. 280 [153]" CONT((null)CONT)UICK AND STR$IRTY WAY 290 PRINT" ([204][154])[207][193][196][211][212][193][210] WAY 300 [153]" ((null)CONT)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)" 310 [161]A$:[139]A$[179][177]"Q"[175]A$[179][177]"L"[175]A$[179][177]"R"[167]310 320 [139]A$[178]"R"[167]1280 330 [139]A$[178]"Q"[167]390 340 [139]FL[167]750 350 FL[178]1:[137]570 360 : 370 :[143] *** THE Q&D WAY *** 380 : 390 [153]"LOADFOR (null)HE DEF(null)(null)RIGHT$LEN(null)FOR AND DEFSTR$RIGHT$(null)(null)(null) FOR(null)AY" 400 [151]214,22:[153]:[153]" OPEN(null)RESS (null)(null)(null)(null)OPEN LEGAL AND REASONABLE KEYS" 410 [153]"OPENSTR$RIVE NUMBER (8 - 11) "DR"CMDCMDCMDCMD";:[133]DR 420 [153]"OPEN(null)UTPUT TO (1) (null)CREEN (2) (null)RINTER "OD"CMDCMDCMDCMD";:[133]OD 430 [153]"OPENRIGHT$TALICS (1) VALNABLED (2) STR$ISABLED "IT"CMDCMDCMDCMD";:[133]IT 440 [153]"OPENRIGHT$TALICS VALSCAPE CODE (null)(null) "EN"CMDCMDCMDCMDCMD";:[133]EN 450 [153]"OPENRIGHT$TALICS VALSCAPE CODE (null)ASCASC "OF"CMDCMDCMDCMDCMD";:[133]OF 460 [153]" OPEN(null)RESS (null)(null)ATNLENVALOPEN TO SEE THE CODE." 470 [153]" (null)RESS (null)VAL(null)(null)(null)(null)OPEN TO RETURN TO THE MENU" 480 [161]A$:[139]A$[179][177]" "[175]A$[179][177][199](13)[167]480 490 [139]A$[178][199](13)[167]130 500 [153]"LOAD" 510 [151]214,16:[153]:[153]"STOPGOTO470OPEN" 520 [151]631,13:[151]198,1 530 [155]410[171]450 540 : 550 :[143] *** THE LOADSTAR WAY *** 560 : 570 [153]"LOAD" 580 B$(0)[178]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^" 590 B$(1)[178]"(null) (null)" 600 B$(2)[178]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<" 610 B$(3)[178]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP" 620 D$(0)[178]" STR$RIVE NUMBER " 630 D$(1)[178]" (null)UTPUT TO " 640 D$(2)[178]" RIGHT$TALICS " 650 D$(3)[178]" (null)RINTER LENODE (null)(null) = " 660 D$(4)[178]"(null)RINTER LENODE (null)ASCASC = " 670 D$(5)[178]" (null)ETURN TO (null)ENU " 680 E(0)[178]27:E$(0)[178]"8" 690 E(1)[178]22:E$(1)[178]"(null)CREEN" 700 E(2)[178]20:E$(2)[178]"VALNABLED" 710 E(3)[178]28:E$(3)[178]EN$ 720 E(4)[178]28:E$(4)[178]OF$ 730 E(5)[178]9:E$(5)[178]"SYS"[170]D$(5) 740 N[178]8 750 [153]"LOADFOR (null)HE DEF(null)(null)ATNSTR$(null)(null)ATN(null)FOR (null)AY" 760 [153]"CLR":[153][163]N)B$(0) 770 [129]I[178]0[164]4 780 [153][163]N)B$(1) 790 [153][163]N)B$(2) 800 [130] 810 [153][163]N)B$(1) 820 [153][163]N)B$(3) 830 [151]214,3:[153] 840 [129]I[178]0[164]5 850 [153]"OPEN":[153][163]N[170]1)D$(I) 860 [153]"ON"[163]E(I))E$(I) 870 [130] 880 [151]214,20:[153]:[153]"OPEN (null)SE LEN(null)(null)(null) (null)(null)/STR$(null)(null)(null) OPENAND (null)VAL(null)(null)(null)(null)" 890 Y[178]0 900 [151]214,(2[172]Y)[170]4:[153] 910 [153][163]E(Y))"SYS"E$(Y)"ON" 920 [161]A$:[139]A$[179][177]"ON"[175]A$[179][177]""[175]A$[179][177][199](13)[167]920 930 [139]A$[178][199](13)[167]970 940 [139]A$[178]"ON"[167][153]""[163]E(Y))E$(Y):Y[178]Y[171]1:[139]Y[179]0[167]Y[178]5 950 [139]A$[178]""[167][153]""[163]E(Y))E$(Y):Y[178]Y[170]1:[139]Y[177]5[167]Y[178]0 960 [137]900 970 [153][163]E(Y));:[145]Y[170]1[137]980,1000,1040,1080,1100,1120 980 L9%[178]2:[153]" CMDCMD";:[141]1160:[139]Q9[179]8[176]Q9[177]11[167]830 990 DR$[178]Q9$:E$(0)[178]DR$:[137]830 1000 OD[178]3[171]OD 1010 [139]OD[178]1[167]E$(1)[178]"(null)CREEN " 1020 [139]OD[178]2[167]E$(1)[178]"(null)RINTER" 1030 [137]900 1040 IT[178]3[171]IT 1050 [139]IT[178]1[167]E$(2)[178]"VALNABLED " 1060 [139]IT[178]2[167]E$(2)[178]"STR$ISABLED" 1070 [137]900 1080 L9%[178]3:[153]" CMDCMDCMD";:[141]1160 1085 [139]Q9[179]1[176]Q9[177]255[167][153][163]E(Y))"ON CMDCMDCMDCMD";:[137]900 1090 EN$[178]Q9$:E$(3)[178]EN$:[137]900 1100 L9%[178]3:[153]" CMDCMDCMD";:[141]1160 1105 [139]Q9[179]1[176]Q9[177]255[167][153][163]E(Y))"ON CMDCMDCMDCMD";:[137]900 1110 OF$[178]Q9$:E$(4)[178]OF$:[137]900 1120 [137]130 1130 : 1140 :[143] *** OUR GET ROUTINE *** 1150 : 1160 Q9$[178]"":U9[178]53280:[151]198,0 1170 [161]A$ 1180 [151]646,[187](1)[172]15[170]1:[153]"TOCMD";:[139]A$[178]""[167]1170 1190 [139]A$[178][199](13)[167][153]" ":Q9[178][197](Q9$):[142] 1200 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]1240 1210 [139][195](Q9$)[177][178]L9%[167]T9%[178][194](U9):[151]U9,1:[151]U9,T9%:[137]1170 1220 [139]A$[179]" "[176](A$[177][199](127)[175]A$[179][199](160))[176]A$[178][199](34)[167]1170 1230 Q9$[178]Q9$[170]A$ 1240 [153]""A$;:[137]1170 1250 : 1260 :[143] *** QUIT TO LOADSTAR *** 1270 : 1280 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15 1290 [139]ER[179][177]63[167][153]"LOAD":[128] 1300 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8" 1310 [153]"RUN" 1320 [151]631,13:[151]632,13:[151]198,2:[128] 10000 [159]15,8,15,"S0:BYTES":[160]15:[148]"0:BYTES",8:[128]